home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / program / tpwpxeng.zip / TBLMAXSZ.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-22  |  796b  |  33 lines
  1. program TblMaxSz;
  2. uses PXEngine, WinCrt;
  3.  
  4. type NameString = pChar;
  5.  
  6. const TableName = 'Table';
  7.       MaxSize    = 128;         (* in Megabytes *)
  8.       NFields    = 5;
  9.       Fields: Array[1..NFields] of NameString =
  10.                ('Numeric Field', 'Alpha Field', 'Date Field', 'Currency Field',
  11.                 'Short Field');
  12.       Types: Array[1..NFields] of NameString =
  13.                ('N', 'A50', 'D', '$', 'S');
  14.  
  15. var   PxErr: Integer;
  16.  
  17. procedure PX(Code : integer);
  18. begin
  19.   writeln(PXErrMsg(Code));
  20. end;
  21.  
  22. begin
  23.   PX(PXWinInit('MyApp', pxShared));
  24.  
  25.   (* Set maximum table size before creating table *)
  26.   PxErr := PXTblMaxSize(MaxSize);
  27.   if PxErr <> PxSuccess then
  28.     Writeln(PxErrMsg(PxErr));
  29.  
  30.   PX(PXTblCreate(TableName, NFields, Fields, Types));
  31.   PX(PXExit);
  32. end.
  33.